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I on startMovie ujo 



2 



3 global emG_passwordList , emG_userGroupList , emG_userGroup, 

4 emG_userName, emG_registeredUsers , emG_msgNumber , emG_maildata, 

5 emG_mode, emG_noSimulate, emG_mailFileList , emG boxName 
6 

7 — Register the "YAK YAK" text to speech xtra 

8 — register xtra "Yak", " XXXXXXXXXXXXX " 
9 

10 VARIABLE LIST 

1 1 emG_userName: Tracks current user by name 

12 emG_msgNumber : Tracks if a message is new (empty) or old 

i 3 (number) 

14 — emG_registeredUsers: Tracks users for to boxes in movies 

15 emG_passwordList : List of passwords for user logon: 

1 6 [pas sword: name] 

1 7 emG_maildata: Message data list: 

\\ ~~~ #to ' #from, #re, #date, #mimetype, #mbxName, #msgbody 

19 — NOT IMPLEMENTED -> #mbxName: now takes the place of #status - 

2 0 eliminate case statement... 

2 1 emG_mode: flag for message movies; #author, #display 

2 2 emG_noSimulate: disable simulate Mode for message handler movies 

2 3 emG_userGroupList : for testing rebus game 

2 4 emG_userGroup: for testing rebus 

25 — emG_mailFileList: List of locations of mailfiles for each user: 

* « [ uname : f i lename ] 

2 7 — emG_boxName: a mailbox datastructure; used to pass mailboxes to 
do the mailbox movie 

29 

3 0 — Install the menu 

3 1 installMenu "main menu" 
32 

3 3 Clear all global variables 
34 

3 5 set emG_noSimulate = TRUE 
36 

3 7 Make sure the AddUsers button is not visible 

3 8 set the visible of sprite 20 = FALSE 
39 

4 0 initSystemUsersData ( ) 
4 1 initializeUser ( ) 

4 2 initializeFields ( ) 

4 3 f illStudentName ( ) 

4 4 clear Password ( ) 
45 

4 6 end 

47 

48 
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4 9 on stopMovie 
50 

51 global instanceOfXtra, emG_passwordList , emG_userGroupList , 

5 2 emG_userGroup, emG_userName, emG_msgNumber , emG_maildata, emG_mode 
5 3 

5 4 — Clear all fields and global variables 

5 5 

5 6 put " into field "addPass" 

5 7 put " into field "addUserGroup" 

5 8 put into field "addName" 

5 9 put " " into field "userList" 

6 0 put " " into field "studentName" 
61 put into field "studentUpName" 
6 2 put "» into field "student Pass" 
63 

6 4 put " " into emG_userName 

6 5 set emG_msgNumber = 0 

6 6 set emG_registeredUsers = [] 

6 7 set emG_passwordList = [:] 

6 8 set emG_userGroupList = [:] 

6 9 set emG_maildata = [:] 
70 

7 1 set emG_userGroup = 0 

7 2 set emG_mode = #empty 
73 

7 4 clearPassword ( ) 
75 

7 6 empty the script used to read in mailboxes 

7 7 set the scriptText of member 65 = 

78 

7 9 Make sure the AddUsers button is not visible 

8 0 set the visible of sprite 20 = FALSE 
8 1 

8 2 end 

83 

84 

8 5 score script 3 ss_goThePrame 

86 

8 7 on exit Frame 
88 

8 9 go the frame 

90 

9 1 end 

92 

93 
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9 4 --- Modified 8-9-98. To include a mailfile location for each 

9 5 user. Added global variable emG_mailFileList . Also changed 

9 6 --- format of the users file to be comma delimited items. This 

9 7 will avoid problem with spaces in full pathnames for 

9 8 user mailbox files. 

99 

100 on initSystemUsersData 

101 global emG_registeredUsers 

102 global emG_passwordList , emG_userGroupList , emG_mailFileList 

1 U O 

104 set emG_registeredUsers = [] 

105 set emG_passwordList = [:] 

106 set emG_userGroupList = [:] 

107 set emG_mailFileList = [:] 
108 

109 set usersData = readUsersFile ( ) 
110 

1 1 1 put the number of lines of usersData into totalLines 

1 1 2 repeat with i = 1 to totalLines 
1 1 3 

114 if line i of usersData = EMPTY then 

115 nothing 

116 else 

1 1 7 set uname = item 1 of line i of usersData 

' 1 8 set pw = item 2 of line i of usersData 

119 set ugroup = value(item 3 of line i of usersData) 

120 set mfile = item 4 of line i of usersData 

122 add emG_registeredUsers, uname 

123 addProp emG_passwordList , uname, pw 

124 addProp emG_userGroupList , uname, ugroup 

125 addProp emG_mailFileList , uname, mfile 

126 end if 
127 

128 end repeat 
129 

1 30 sortRegisteredUsers ( ) 
131 

132 end initSystemUsersData 
133 

134 

135 on initializeUser 

136 

1 37 global emG_user Group, emG_userName 

138 global emG_msgNumber , emG_jnaildata, emG__mode 
l o y 

140 put into emG_userName 

141 set emG_msgNumber = 0 

142 set emG_maildata = [:] 

143 set emG_userGroup = 0 

144 set emG_mode = #empty 
145 

146 end initializeMyGlobals 
147 
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148 

149 — Initialize formatting of all visible text fields 

150 — Should be called when movie starts 
151 

152 on initializePields 

153 

154 SetTextlnfo "StudentName" , " ", "left", "arial", 14, "bold" 

155 SetTextlnfo "StudentUpName" , "your us ername here " , "left", "arial" 

156 14, "bold" 

157 SetTextlnfo " StudentPass" , "", "left", "arial", 14, "bold" 
1 58 

159 put "" into field "addPass" 

160 put "" into field "addUserGroup" 

161 put "" into field "addName" 

162 put "" into field "userList" 
163 

164 — set the lineHeight of field "To" = 18 

165 — set the border of member "To" = 1 

166 — set the border of member "ToDown" = 1 

167 — set the margin of member "ToDown" to 8 
1 68 

169 end initializeFields 
170 

171 

172 THIS HANDLER FILLS THE STUDENT LOGON NAME FIELD 

173 WITH THE CURRENT LIST OF STUDENT NAMES 

174 

175 on f illStudentName 

176 global emG_registeredUsers 
177 

178 — Clear the student name field for the kids' logon 

179 put "" & RETURN into field " StudentName " 
180 

181 repeat with uname in emG_registeredUsers 
1 82 

183 put uname & RETURN after field "StudentName" 
184 

1 8 5 end repeat 
186 

187 ~ Bring the field back to the top line 

188 set the scrollTop of member "StudentName" = 0 
18 9 

190 end 
191 

192 

]qa " F ° r convenience of a11 the message handleing movies 

194 keep emG_registeredUsers in a special sorted order: 

195 « alphabetic with "administrator" at the end. 
1 96 

197 on sortRegisteredUsers 

198 global emG_registeredUsers 
199 

200 fix up emG_registeredUsers in sorted order but 

201 -- with "administrator" at the end 
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202 

203 deleteOne (emG_regis teredUsers, "administrator" ) 

204 sort ( emG_regis teredUsers ) 

205 append (emG_regis teredUsers, "administrator" ) 
206 

207 end sortRegis teredUsers 

208 --mailbox handlers 
209 

210 

211 openMailbox starts the mailbox movie 

212 because the call must be continued in emh_continue 

213 it is necessary to use a global variable for the 

214 mailbox name. 

215 

216 on openMbx boxName 

217 global emG_boxName 
218 

219 set emG_BoxName = boxName 
220 

221 go to frame "movie" 
222 

22 3 — since all sprites are automatically puppets in Dir 6.0 

224 next should not be necessary 

22 5 — Take control of the sidebar buttons 

226 

227 puppetSprite 6, TRUE 

228 puppetSprite 7, TRUE 

22 9 puppetSprite 8, TRUE 
230 puppetSprite 9, TRUE 
231 

232 set mbxMovie = window "mailbox. dir" 

233 set the titleVisible of mbxMovie to FALSE 

234 set the rect of mbxMovie = getMovieRect ( "mailbox" ) 
235 

236 open mbxMovie 

237 set the name of mbxMovie to "childWindow" 
238 

23 9 tell window "childWindow" 

240 -- next is a hack to get around Macromedia MIAW bug 

241 see emh_continue for calls to real handlers 

242 emc_startMeUp ( ) 
243 

244 end tell 
245 

246 CONTINUES in emh_continue 

247 end 
248 

249 

250 Read mailbox accepts a string that is the mailbox name 

251 — and returns a mailbox datastructure that is the 

252 — mailbox name and a list of the messages in that box 
253 

254 on readMailbox boxName 

255 global emG_userName, emG_mailFileList 
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256 — 

25 7 "inbox" : set bxstring = "#mbxName: #received" 

258 -- "outbox" : set bxstring = "#mbxName: #sent n 

25 9 "savebox" : set bxstring = "#mbxName: #saved" 

260 -- "trashbox" : set bxstring = "#mbxName: # trashed" 
261 

262 set msgList = [] 

263 

264 

265 set mbxStruc = list (boxName, msgList) 

266 set mailFileName = getProp (emG_mailFileList , emG userName) 
267 

268 Start up Fileio Xtra 

269 set ins tanceOf Xtra = new (xtra "fileio") 
270 

271 ~ Set up Fileio to read from users file 

272 openFile(instanceOfXtra, mailFileName, 1) 
273 

274 

275 --If file users doesn't exist, create it and set it up for read 

27 6 if status (instanceOf Xtra) <> 0 then 

277 createFile( instanceOf Xtra, mailFileName) 

278 openFile( instanceOf Xtra, mailFileName, 1) 

279 end if 
280 

281 Read what's currently in the file 

282 set whatText = readFile (instanceOf Xtra) 
283 

284 — put msgs from appropriate box into the message list 

285 this needs to be fixed after the mail file datastructure 

286 is changed... 
287 

288 if value (#mbxname) <> 0 then 

289 — alert "Invalid mailbox name." 
2 90 -- return (0) 

291 — end if 
292 

293 — OLD case statement 

294 case boxname of 

295 "inbox" : set bxstring = "#status: #received" 

296 "outbox" : set bxstring = "#status: #sent" 

297 "savebox" : set bxstring = "#status: #saved" 

298 "trashbox" : set bxstring = "#status: #trashed" 
2 99 

30 0 otherwise: 

301 alert " Invalid mailbox name . " 

302 return(O) 

303 end case 
304 

305 inefficient to have to look for the " #status ... string" 

now is changed to value ( #string) turning the string into a value, 



306 
307 
308 
309 



as 



Director has difficuties with strings w/in property lists. 
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repeat with i = 1 to the number of lines in whatText 



310 

31 1 

312 if line i of whatText contains bxstring then 

313 append (msgList, valuedine i of whatText)) 

314 end if 
315 

316 end repeat 

317 

318 

319 — Close Fileio Xtra 
320 

321 closeFile{ instanceOfXtra) 

322 

323 set instanceOfXtra = 0 
324 

325 return (mbxS true) 
326 

327 end 
328 

32 9 on messageHandler msgStatus 

330 

331 global emG_userName, emG_maildata, emG_msgNumber , emG_mode, 

3 32 emG_mailFileList 
333 

334. . put " " into sendData 
335 

336 setProp emG_maildata, #status, msgStatus 

o»37 

338 

qah Set UP where to find the users mailfile 

340 set whatFile = getProp(emG_mailFileList , emG_userName) 

04 l 

342 

343 Start up Fileio Xtra 

344 set instanceOfXtra = new (xtra "fileio") 
345 

346 

o^I ~~ Set UP Fileio to read and write from/to users file 

348 openFile (instanceOfXtra, whatFile, 0) 

349 

350 

351 — if file users doesn't exist, create it and set it up for 

352 read/write 

35 3 if status (instanceOfXtra) <> 0 then 

35 4 createFile( instanceOfXtra, whatFile) 

35 5 openFilef instanceOfXtra, whatFile, 0) 

35 6 end if 

357 

358 

35 9 — Read what's currently in the file 

360 set whatText = readFile (instanceOfXtra) 

361 
362 
363 



Add message to current user's mailbox 
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364 — if it previously existed, then write over the old message 
J6 5 if not, add it to the bottom 

366 — Only messages with a status = #saved can be changed, 

oo 7 

368 if emG_msgNumber <> 0 then 

369 repeat with i = 1 to the number of lines in whatText 

370 if i = emG_msgNumber then 

371 put emG_maildata & RETURN after sendData 

372 else if line i of whatText <> " " then 

21? put line 1 of whatText & RETURN after sendData 

374 end if 

375 end repeat 
376 

377 else if emG_msgNumber = 0 then 

378 put whatText into sendData 

37 9 put emG_maildata & RETURN after sendData 
380 end if 

381 
382 

383 -- Put the cursor at the begining of the users file 

38 4 setPosition(instanceOfXtra, 0) 
38 5 

386 

38 7 — Overwrite users file with updated list 

388 writeString{ ins tanceOf Xtra, sendData) 
389 
390 

391 — Close Fileio Xtra 

392 

393 closeFile ( ins tanceOf Xtra ) 
394 

395 set ins tanceOf Xtra = 0 

396 

397 

qoq "-ON SEND, PUT IN OTHER CHILD'S MAILBOX, TOO 

o99 

400 if msgStatus = #sent then 

401 

402 setaProp emG_mai Ida ta, # status ,# received 

403 

404 put getaProp(emG_maildata,#to) into sendingTo 

405 

406 put "" into sendData 

407 

408 

9 Set up where to find the users file 

^] 9 — put the pathName & sendingTo into whatFile 

411 set whatFile = get Prop (emG_mailFileList, sendingTo) 

413 

414 — Start up Fileio Xtra 

415 set instanceOfXtra = newfxtra "fileio") 
416 

417 
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418 — Set up Fileio to read and write from/ to users file 

419 openFile(instanceOfXtra, whatFile, 0) 
420 

421 

^22 if file users doesn't exist, create it and set it up for 

423 read/ write 

424 if status ( instanceOfXtra) <> 0 then 
42 5 createFile( instanceOfXtra, whatFile) 
42 6 openFile( instanceOfXtra, whatFile, 0) 

42 7 end if 
428 

429 

430 Read what's currently in the file 

431 set whatText = readFile (instanceOfXtra) 
432 

433 Add message to recipient's mailbox 

434 put emG_maildata & RETURN after whatText 
435 

43 6 — Put the cursor at the begining of the users file 
437 setPosition( instanceOfXtra, 0) 

438 

439 Overwrite users file with updated list 

440 writeString( instanceOfXtra, whatText) 
441 

442 . 

443 Close Fileio Xtra 
444 

445 closeFile ( instanceOfXtra ) 

446 set instanceOfXtra = 0 
447 

448 end if 
449 

450 end 

451 

452 on createMailData userName, type 

453 

45 4 set newmsg = [:] 

45 5 addProp( newmsg, #to, " " ) 

456 addProp (newmsg, #from, userName) 

45 7 addPr op (newmsg, #re, " " ) 

45 8 addPr op (newmsg, #date, the abbreviated date) 

45 9 addPr op (newmsg, #mimetype, type) 
460 addPr op (newmsg, #status, #new) 

46 1 addProp (newmsg, #msgbody, [ ] ) 
462 return (newmsg) 

463 

464 end createMailData 
465 

466 

46 7 Make sure there is something in each of the "to" 

468 and "from" fields and that the messagebody has the 

46 9 right format. 

470 

471 on isValidMessage maildata 
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472 

473 repeat with prop in [#to, #from] 

474 if getProp(maildata, prop) = " " then 

475 alert "But who do you wish to send this message to?" 

476 — return(O) 

477 end if 

478 end repeat 
479 

480 if not listp(getProp(mailData, #msgBody) ) then return(O) 
481 

482 return(l) 
483 

484 end isValidMessage 

485 

486 

487 

488 

489 on setReply 
490 

491 TAKES CARE OF SWITCHING THE SIDEBAR BUTTONS WHEN REPLY 

492 — IS HIT FROM AN OPEN MESSAGE 

493 

494 go to "Movie" make sure the frame is correct 
495 

496 Set the buttons with reply off and send on 

497 disableReply ( ) 

498 enableSendO 
499 

500 end 
501 

502 

503 

504 on disableSend 

505 go to "movie" 

506 puppet sprite 7, TRUE 

507 set the member of sprite 7 = member "SendNo" 

508 end disableSend 
509 

510 on enableSend 

511 go to "movie" 

512 puppetsprite 7, TRUE 

513 set the member of sprite 7 = member "Send" 

514 end enableSend 
515 

516 on disableReply 

517 go to "movie" 

518 puppetsprite 6, TRUE 

519 set the member of sprite 6 = member "ReplyNo" 

520 end disableSend 
521 

522 on enableReply 

523 go to "movie" 

524 puppetsprite 6, TRUE 

525 set the member of sprite 6 = member "Reply" 
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52 6 end enableSend 
527 

528 - . 

529 on returnToMain 

530 

531 global emG_msgNumber , emG_maildata, emG mode 
532 

53 3 — Clear the variables 
534 

535 set emG_msgNumber = 0 

536 set emG_maildata = [:] 

537 set emG_mode = #empty 
538 

539 unpuppet the left panel buttons which reuse sprite 

540 channels 6-9 

541 — MB 10-13-98 I don't like this method... it is safer 

542 --to use new sprite channels. 

543 -- is there a good reason for reusing channels .. .does it 

544 — affect performance? 
545 

546 puppetsprite 6, FALSE 

5 47 puppetsprite 7, FALSE 

548 puppetsprite 8, FALSE 

549 puppetsprite 9, FALSE 
550 

551 — Go back to the main menu 
552 

553 go to "open" 
554 

555 end 
556 

557 API handlers 

558 

55 9 emh_getUserMailbox returns the current user's mailbox specified 

560 by the mailBoxName parameter. 

561 

562 on emh_getUserMailbox mailboxName 

563 

564 return (readMailbox(mailBoxName) ) 
565 

5 66 end emh_getUserMailbox 
567 

568 

569 

57 0 on emh^getUserName 

571 global emG_userName 
572 

573 return (emG_userName) 
574 

5 75 end emh_getUserName 
576 

577 

578 

57 9 on emh_getUserData userName 
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580 global emG_userGroupList , emG_mailFileList 
581 

582 return (list (username, -> 

583 username, getProp (emG_userGroupList , username), 

584 getProp(emG_mailFileList, userName) , [], list ( "inbox", "outbox", 

585 "savebox") )) 
586 

58 7 end emh_getUserData 
588 

589 

590 more API handlers 

591 

592 

593 A curse on Macromedia. This ugly hack is used to get 

594 around a Macromedia bug which causes the startMovie 

595 handler of a MIAW to run only after control has been 

596 transferred back to the calling movie and the calling 

5 97 movie advances a frame. 

598 

59 9 This handler is called by the startMovie handler of the 

600 MIAW. This way we ensure that these scripts only run 

601 after the MIAW has been properly initialized. 

602 

603 on emh_cont inue component Type 

604 global emG_userName / emG_maildata, emG_mode, emG_boxName, 

605 emG_userGroup 

60 6 

607 -- Since this function can only be called by a MIAW component 

608 — we assume that the "childwindow" is running 
609 

610 if componentType = #msgHandler then 

611 tell window "childwindow" 

612 emc_initWindow(emG_userName) 

6 1 3 msh_openMessage (emG_maildata, emG__mode) 
614 end tell 

615 

616 else if componentType = #mailbox then 

617 tell window "childwindow" to emc_initWindow(emG_userName) 

618 set success = the result 

619 if not success then 

620 alert "Could not initialize mailbox movie" 

621 forget window "childwindow" 

622 return{0) 

623 end if 
624 

625 set mbx = readMailbox ( emG_boxName ) 

626 tell window "childwindow" to mbx_openMailbox (mbx) 

627 set success = the result 

628 if not success then 

629 alert "Could not open mailbox." 

630 forget window "childwindow" 

631 return (0) 

632 end if 
633 
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634 else alert " ERROR invalid componentype . " 
635 

636 end emh__continue 

637 

638 

63 9 more API handlers 

640 

ftlo The f^-P assMessa 9 e handler is used to pass a message from 

642 — a mailbox to the appropriate message handler 



on emh_passMessage maildata # messageNumber 



643 
644 
645 

646 global emG_maildata, emG_msgNumber , emG_mode 
647 

648 — should check for errors in the parameters 
649 

650 set emG_maildata = mailData 

651 set emG_msgNumber = messageNumber 
652 

pcf ~ If a mailbox window is open we need to close that window. 

pec ThS window wil1 not actually close until this function completes 

bbb — and returns control to the caller function in the mailbox movie. 

b5 6 — Therefore, we need to move it to the back so it is no longer 

65 7 visible. 

658 

65 9 moveToback window "childwindow" 
660 updates tage 

661 

662 tell window "childwindow" to emerge tComponentlnf o ( ) 

66 3 set clnfo = the result 

664 if getComponentProp ( clnfo, # Component Type) = #mailbox then 

665 tell window "childwindow" to emc_closeWindow( ) 

66 6 forget window "childwindow" 
667 end if 

668 

669 go to frame "movie" 

670 set up the button bar on the left 
671 

672 set msgStatus = getProp (emG_maildata, #status) 

673 if msgStatus = #received then from inbox 

674 set emG_mode = #display 

675 disableSend( ) 

676 enableReply ( ) 

677 else if msgStatus = #sent then from outbox 

678 set emG_mode = #di splay 

67 9 disableSendO 

68 0 disableReplyO 

681 else if msgStatus = #saved then from savebox 

68 2 set emG_mode = #author 

683 disableReply ( ) 

68 4 enableSendO 

685 else — error 

686 alert "passing message with invalid status" 
68 7 return (0) 
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688 end if 
689 

690 OPEN MESSAGE HANDLER MOVIE 

691 

692 openMsgHandler(getaProp{emGjnaildata,#mimetype) , emG_maildata) 
d y o 

694 end emh_passMessage 
695 

696 -- more API handlers 

697 

f nn ~~ THIS C ° DE IS BASED 0N 0LD STUFF WHICH USES MESSAGE NUMBER 

699 TO IDENTIFY MESSAGES ACROSS MAILBOXES. THIS SYSTEM 

700 — NEEDS TO BE CHANGED TO IDENTIFY MESSAGES BY A MAI LBOXNAME 

701 AND A MESSAGE NUMBER WITHIN THE BOX 
702 

703 on emh_getMessage messageNumber , typeorBoxName 
704 

705 global emG__userName, emG_msgNumber , emG_mailData 
706 

707 set emG_msgNumber = messageNumber 
708 

70 9 if messageNumber = 0 then — return new message data 

710 --typeorBoxName should have mime type 

W\ set emG_maildata = createMailData (emG_userName, typeorBoxName) 

/Id ■ . return (emG_maildata) 

713 end if 
714 

715 otherwise find an existing message 

716 typeorboxname should have boxName 

718 set theBox = readMailbox( typeorBoxName) 

719 set emG_mailData = getat (getAt (theBox, 2), messageNumber) 
72 0 return (emG_mai Ida ta) 

721 

722 end emh_getMessage 
723 

724 

725 

726 on emh_getRegisteredUsers 

727 global emG_registeredUsers 
728 

72 9 return (emG_regis teredUsers ) 
730 

731 end emh_getRegisteredUsers 
732 

733 

734 " 

735 on emh_ki 1 IComponent 

736 

7^ft tel1 window "childwindow" to emc_closeWindow( ) 

738 if the result = 0 then alert "TROUBLE CLOSING WINDOW! " 

739 else 

740 forget window "childwindow" 

741 end if 
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742 returnToMain ( ) 
743 

744 end emh_killComponent 
745 

746 

747 Initialize formatting of text fields 

748 Thanks to Frank Leahy, maricopa site for this one 

749 

750 on SetTextlnfo fldName, fldValue, fldAlign, fldFont, fldSize, 

751 fldStyle 

752 

753 put fldValue into field fldName 

754 set the textAlign of field fldName = fldAlign 

755 set the textFont of field fldName = "arial" --fldFont 

756 set the textsize of field fldName = fldSize 

757 set the textstyle of field fldName = fldStyle 
758 

75 9 end 
760 

761 

762 

763 script of cast member studentName 

764 -- emG_userName should not be set here 

765 — because it could be invalid 
766 

767 on mouseUp 
768 

769 — Put selected user name into up version of student field 

770 — switch the field from down to up 
771 

772 put word 1 of line (the mouseLine) of field "studentName" into field 

773 " s t uden t UpName " 
774 

775 set the member of sprite 14 to member "StudentUpName" 

776 

777 end 
778 

779 - 

780 — script of cast member StudentUpName 
781 

782 on mouseUp 
783 

784 Pull down student field: change field from 

785 up (sprite 17) to down (sprite 16) 
786 

787 set the member of sprite 14 to member "StudentName" 

788 

789 -- clear password field 

7 90 clearPassword ( ) 

791 

792 end 
793 
794 
795 
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796 scripts of cast member studentPas sword 

797 

798 

79 9 on keyUp 

800 global gpw, gpwlen 

801 --gpw is global password and 

802 — gpwlen is global password length 
803 

804 hideAlertO — user maybe trying again. . .hide badPwMsg 
805 

806 if the key = RETURN then 

807 if checkPassword( field "studentUpName" , gpw) then 

808 enterMainEmail (field "studentUpName" ) 

809 else invalid password 

8 1 0 alertBadPassword ( ) 

81 1 end if 

8 1 2 set gpw = " " 

813 set gpwlen = 0 

814 put "" into field " student Pas s " reset the password field 

815 end if 
816 

817 end keyUp 
818 

819 

820 

821 on keyDown 

82 2 global gpwlen, gpw 
823 

82 4 — eats the key, otherwise it will appear until keyup 
825 

826 if the key = BACKSPACE then 

827 put " " into char gpwlen of field "studentPass" 

828 put "" into char gpwlen of gpw 

82 9 if gpwlen > 0 then 

830 set gpwlen = gpwlen - 1 

831 end i f 

83 2 else if the key = RETURN then 
83 3 nothing 

834 else if the keycode >= 117 and the keycode <= 126 then 

835 nothing 

836 else 

837 put "*" after field "studentPass" 

838 put the key after gpw 

839 set gpwlen = gpwlen + 1 
840 

841 end if 
842 

843 set the selstart = gpwlen 

844 set the selend = the selstart 
845 

846 end keyDown 

847 

848 

849 script of cast member goStudentLog 
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850 

851 on mouseUp 
852 

853 go to frame "pass" 
854 

855 end 
856 

857 ■ 

858 — script of cast member editUsers 

859 

860 on mouseUp 
861 

862 — set the default pathname for the mail file location 

863 put the pathname into field "addMailFileLoc" 
864 

865 go to frame "edit" 
866 

867 end 

868 

869 

870 — script of cast member okUser 

871 
872 

873 on mouseDown 

874 set the member of sprite 7 = "okay down" 

875 end 
876 

877 



script of cast member okDown 



on mouseUp 

global gpw, gpwlen see script of field studentPass 

set the member of sprite 7 = "okayUser" 

if checkPassword( field " studentUpName" , gpw) then 
-- valid user & pw 

enterMainEmail ( field "studentUpName" ) 
else — password invalid 

alertBadPassword( ) 
end if 

clear Password ( ) 
end 



879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
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900 script of cast member addUser 
901 

902 on mouseUp 

903 global emG__regis teredUsers 

904 global emG_passwordList , emG_userGroupList , emG mailFileList 
905 

906 --check that username is filled and is unioue 
907 

908 if field "addName" = EMPTY then 

909 alert "No username" 

910 return(O) 

911 else if getOne (emG_registeredUsers , field "addName") then 

912 alert "Username already in system. Choose a different name" 

913 return(O) 
914 

915 else set uname = field "addName" 
916 

91 7 — NEED TO TAKE CARE OF THIS! ! ! ! 

918 check that the mailfile location is a valid directory 

919 — there are serious problems with this at present 

920 — for now assume pathnames are valid 
921 

922 

923 -- add new User data to system global variables 

924 add ( emG_regis teredUsers , uname ) 

925 addProp(emG_passwordList, uname, field "addPass") 

926 addProp (emG_userGroupList , uname, field "addUserGroup" ) 

927 — append username to the mailfile location directory 

928 addProp(emG_mailFileList, uname, field "addMailFileLoc" & uname) 

92 9 

930 sortRegisteredUsers ( ) 
931 

9 32 — write the users file with system users data 

933 wri teUsersFile ( ) 

934 

935 ~ Put the updated user list into the userList field 

936 put "" into field "userList" 

937 repeat with uname in emG_regis teredUsers 

938 put uname after field "userList" 

939 put " " & getProp(emG_passwordList, uname) after field "userList" 

940 put " " & getProp(emG_userGroupList, uname) after field "userList" 

941 put ■ " & getProp(emG_mailFileList, uname) after field "userList" 

942 put RETURN after field "userList" 

943 end repeat 
944 

945 

946 reset the User data fields 
947 

948 put "" into field "addUserGroup" 

949 put "" into field "addPass" 
95 0 put "" into field "addName" 

951 put the pathname into field "addMailFileLoc" 
952 

95 3 — Refill the kids' logon name field 
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954 fills t uden t Name { ) 

955 

956 end 
957 

95 8 script of cast member seeUserList 

959 

960 on mouseUp 
961 

962 global instanceOfXtra 

963 

964 

965 put "" into field "userList" 

966 

967 

968 -- Set up where to find the users file 

969 put the pathName & "users" into whatFile 
970 

971 

972 Start up Fileio Xtra 

973 set instanceOfXtra = new(xtra "fileio") 
974 

975 

976 — Set up Fileio to read from users file 

977 openFile( instanceOfXtra, whatFile, 1) 
978 

979 

980 — if file users doesn't exist, create it and set it up for read to 

yol avoid error 

982 

98 3 if status (instanceOfXtra) <> 1 then 

984 createFile( instanceOfXtra, whatFile) 

985 openFile( instanceOfXtra, whatFile, 1) 

986 end if 
987 

988 

989 — Read what's currently in the file 

990 set whatText = readFile (instanceOfXtra) 
991 

992 

993 Put the updated user list into the userList field 

994 put whatText into field "userList" 
995 

996 — Close Fileio Xtra 

997 closeFi le ( ins tanceOf Xtra ) 
998 

999 set instanceOfXtra = 0 
1000 

1001 end 
1002 
1003 
1004 

1005 script of cast member DoneAdmin 

1006 

1007 on mouseUp 



1029 
1030 
1031 
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go to frame "open" 



1008 
1009 
1010 

1011 put into field "addName" 

1012 put into field "addUserGroup" 

1013 put into field "addPass" 

1014 put into field "addMailFileLoc" 
1015 

1016 end 



-- msgHandlers scripts 



1017 

1018 

3 Sin °P enMs ^Handler- starts the appropriate Message Handling movie. 

lU^U The call must be continued in emh_continue. 

inoo Jt iS necessar y that the global variable emG_mailData is 

inoQ Set UP * Therefore ' we P a ss it as a parameter to make it 

1023 clear that the variable is necessary. 

1024 

1025 on opehMsgHandler mimetype, mailData 

1026 

I no 7 Set movieNaine = getMessageHandler (mimetype) 

1028 go to frame "movie" 



since all sprites are automatically puppets in Dir 6.0 
next should not be necessary 

1032 — Take control of the sidebar buttons 
1033 

1034 puppetSprite 6, TRUE 

1035 puppetSprite 7, TRUE 

1036 puppetSprite 8, TRUE 

1037 puppetSprite 9, TRUE 
1038 

1039 set mshMovie = window movieName 

1040 set the titleVisible of mshMovie to FALSE 

1042 reCt ° f mshMovie = getMovieRect (mimetype) 

1043 open mshMovie 

1044 set the name of mshMovie to "childWindow" 
1 045 

1046 tell window "childWindow" 

39^1 next is a hack to 9et around Macromedia MIAW bug 

\*a\ ~" see emh - con tinue for calls to real handlers 

1 049 emc_startMeUp() 
1050 

1051 end tell 
1052 

1053 -- CONTINUES in emh_continue 

1054 end openMsgHandler 
1055 

1056 

1057 

1058 ~ getMessageHandler returns filename of movie to handle mimetype. 

^ Thls code makes it easy to make changes in movie filenames 

Yr^i " and to add new messa ge handling movies. 
1061 
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1062 on getMessageHandler mi me type 

1063 

1064 case mimetype of 

1065 " text " : return ( " text . dir ■ ) 

1066 "rebus": return ( "rebus .dir" ) 

1067 "grid": return ( "grid. dir " ) 

1068 " connect " : return ( " connect . dir " ) 

1069 "puzzle" : return ("puzzle. dir") 
1070 

1071 otherwise: 

1072 alert "Invalid mimetype of message." 

1073 return ("") 

1074 end case 
1075 

1076 end getMessageHandler 

1077 

1078 

1079 on getMovieRect whichMovie 
1080 

1081 the top of green panel 

1082 set movieTop = the top of sprite 3 

1083 the left of green panel 

1084 set movieLeft = the left of sprite 3 
1085 

1086 case whichMovie of 

1087 "rebus", "rebus. dir": 

1088 set theRect= rect (movieLeft , movieTop, -> 

1089 movieLeft + 640, movieTop +480) 

1090 "text", " text. dir" : 
set theRect= rect (movieLeft , movieTop, -< 

the stageRight - 5, the stageBottom -5) 

1093 "puzzle", "puzzle. dir" : 

1094 set theRect= rect (movieLeft , movieTop, -i 

j095 the stageRight - 5, the stageBottom -5) 

10 96 "grid", "grid. dir", "connect", " connect . dir " : 

1097 set theRect= rect (movieLeft , movieTop, i 

299? the stageRight - 5, the stageBottom -5) 

1099 "mailbox", "mailbox. dir " : 

1100 set theRect= rect (movieLeft , movieTop, n 

2291 the stageRight - 5, the stageBottom -5) 

1102 otherwise: 

11° 3 alert "ERROR: invalid movieName: " & whichMovie 

1104 set theRect = rect (0, 0, 0, 0) 
1 1 05 

1106 end case 
1 107 

1108 return (theRect) 
1109 

1110 end getMovieRect 

1111 

1112 

1113 

1114 score script f r_installMenu 
1115 



1091 
1092 
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1116 on prepareFrame 

1117 --first clear away any old menus 

1118 installMenu 0 

1119 installMenu "main menu" 

1120 end 
1121 

1 122 

1123 password verification and user init 
1124 
1 125 
1 126 

1127 on enterMainEmail username 

iioo S loba l emG_userName, emG_userGroup, emG_userGroupList 

1130 set emG_userName = username 

1131 set emG_userGroup = getProp(emG_userGroupList, emG_userName) 

1 I Ob 

1133 ADMINISTRATOR has access to the "Edit Users" button 

1134 if emG_userName = "administrator" then 

1135 set the visible of sprite 20 = TRUE 
1 1 36 end if 

1 137 

1138 go to frame "open" 

1 139 

1140 end enterMainEmail 
1141 

1142 

1143 
1 144 

1145 on checkUserName userName 

1146 global emG_registeredUsers 
1 147 

if getonefemG^registeredUsers, userName) then 
1 '49 return(l) username is in system 

1 1 50 

1151 else 

1152 alert "User " & userName & "not a KidCode authorized user." & RETURN 
si 53 & "You cannot login without a valid user name." 

1154 

1 1 55 end if 
1 156 

1157 end checkUsername 
1158 

1159 more password handling scripts 

1 1 60 

1161 on checkPassword userName, password 

1162 global emG_passwordList 
1 163 

\\W " if the username is not valid quit this... 

1165 if not checkUserName (userName) then return(O) 

1166 

1167 username is valid 

1 168 

1169 -- First part of loop changes capital letters to lower case 
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1171 " Se ? ond part puts lower case letters into password check 

1172 ThiS eliminates a11 s P aces and/or unacceptable characters 

1173 set checkPassword = "V 

1174 repeat with i = 1 to the number of chars in password 

I 1 75 

1176 put char(i) of password into capital 

1177 put charToNum( capital) into capital 
1178 

1179 if capital <= 90 and capital >= 65 then 

1180 Put numToChar (capital + 32) after checkPassword 

II 81 else if capital >= 97 and capital <= 122 then 
11 82 Put numToChar (capital) after checkPassword 

I 183 end if 
1184 

1185 end repeat 
1186 

1187 — CHECK PASSWORD 

1188 

1189 set realPassword = getProp (emG_passwordList , username) 

I I yu 

1191 if realpassword = checkPassword then 

1192 return ( 1 ) — TRUE 

1193 else 

1194 return(O) 
1 1 95 end if 
1196 

1 197 

1198 end checkPassword 
1 199 

1200 

1201 

1202 on clearPassword 

1203 global gpw, gpwlen 
1204 

1205 set gpw = " " 

1206 set gpwlen = 0 

1207 put " " into field " Student Pass " 
1208 

1209 end clearPassword 
1210 

1211 

1212 

1213 on alertBadPassword 
1214 

1215 set the loc of sprite 17 to point(231, 350) 

1216 beep() 
1217 

1218 end alertBadPassword 

1219 on hideAlert 
1220 
1221 
1222 

1223 end hideAlert 



set the loc of sprite 17 to point (-188, -31) 
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1224 
1225 

1226 script of cast member reply 

1227 w * 

1228 on mouseUp 

1229 global emG_userName, emG_msgNumber 

1230 global emG_maildata, emG_mode / emG userGroup 

1231 ~ 

1232 abandon current MailData which should be in the inbox. 

\o\a " Later, the user may choose to either abandon or send 

<ooc " the new re P lvTo message. That is not a concern. 
1235 

]oo7 ~~ If a n^ 11130 * window is open need to get the message 

1237 and close that window. 

1238 

1239 tell window "childwindow" to emc_getComponentInf o ( ) 

1240 set clnfo = the result 

Ioao lf getCom P onentPr °P( cInfo ' #ComponentType) = #mailbox then 

1242 tell window " childwindow" to mbx_GetMessageNumber ( ) 

1243 set emG_msgNumber = the result 

1244 if emG_msgNumber <= 0 then 

1245 alert "You must select a message." 

1246 return () abandon the request to reply 

1247 end if 
1248 

lien tel1 window "childwindow" to mbx_Ge t Mess age (emG_msgNumber ) 

1250 set emG__maildata = the result 
1 251 

loco ~"~ forget win ^ow "childwindow" done in passMessage 

iocc N ° W ° pen the a PP r °P ria te Message Handler 

1255 to display the message 

1256 

1257 emh_PassMessage(emG_maildata, emG msgNumber) 
1258 

1259 end if 
1260 

!?51 If we got to this Point message handler is open. 

lOftQ ~~ ? resumablv it: has a message displayed. If the message 

lOfiA ~~ ^ empty only the messa ge handler knows that and it 

I off Wil1 need t0 catch the error and return an error code 

1265 — to msh_replyMessage. 
1266 

loll ~~ The messa 9 e handling movie's replyMessage handler 

1268 -- should swap "to" and "from" 

1269 fields and make the message editable 
1270 

InXl ~~ Set mode to author to kee P it consistent with msg handler 

12 72 set emG_mode = #author 

1273 

Inli Set emG - ms g Num ber = 0 this is now a new message 
12 75 

1276 tell window "childwindow" 

1277 global emG_userGroup 
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lolt " mSg handler wil1 swa P "to" with "from" and change 

'2 79 -- mode to author 

1280 moveToFront window "childwindow" 

1281 msh_replyMessage ( ) 

1282 end tell 
1283 

1284 set emG_maildata = the result 
1285 

ioq7 ~~ Toggle the send and reply buttons 

iofo setreply disable reply and enable send buttons 

1 288 

1289 

1290 end 

1291 . 

1292 - 

1293 script of cast member send 
1 294 

1295 on mouseup 

1296 global emG_maildata, emG_userGroup 
1297 

]ooo ° OUld Check that the childwindow is a messagehandler 

l<iyy but this may not be necessary. 
1 300 

1301 tell window "childwindow" 

1302 global emG_userGroup 

1303 msh_sendMessage ( ) 

1304 set emG_maildata = the result 

1305 end tell 
1306 

if n0t isValidMessa g e (emG_maildata) then 

]qhq alert "ERROR not a valid message." 

1309 return (0) — abandon attempt to send 

■ w 1 0 end if 
1311 

loio otherwise continue to send message 

1314 — NEED TO FIX THIS SO THAT MESSAGE STATUS DOES NOT 

1315 — BECOME "ttsent" if it fails to be saved to both 
1 J 1 o — mail files 

1317 

1318 messageHandler(#sent) — for now this uses global emG_maildata 

1320 — tell window "childwindow" to msh_clearMessage ( ) 

1322 end 
1323 

1324 - 
1325 

1326 on mouseUp 
1327 



script of cast member print 



]?o2 tel1 window "childwindow" to emc_getComponentInfo() 

U<dy set clnfo = the result 

1330 set cType = getComponentProp (clnfo, #ComponentType) 
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1332 if cType = #mailbox then 

1333 need to pass the message to its message handling 
iqqc " coinponent for Pointing. Ideally this can be done 
]oof ~~ without opening a window and laying out the message. 
1336 

iool alert "I can't do that right now. Open the message and then print." 

1339 else if cType = #msgHandler then 

1 340 

1341 tell window "childwindow" 

1342 msh_PrintMessage ( ) 

1343 end tell 
1344 

1345 else alert "ERROR invalid componentype . tt 

1346 

1347 end 

1348 

1349 

1350 script of cast member Quit 

1351 

1352 on mouseUp 
1353 

1354 handleQuitO 
1355 

1356 end 

1357 — . 

1358 

1359 

1360 on handleQuit 
1361 

1362 initializeUser () 

1363 clearPassword( ) 

1364 go to frame 2 
1365 

1366 make sure the editUsers button is invisible 

1367 set the visible of sprite 20 = FALSE 
1368 

1369 end handleQuit 
1370 

1371 script of cast member trash 

1372 

Email Main now handles all aspects of trashing a 

Jotc message by writing the mail files. The components 

"~ instructed to update their state by clearing the 

]%Zy message (if the component is a message handler) or 

}o7o redrawing the message list (if the component is a 

1378 mailbox. ) 

1379 
1380 
1381 

1382 on mouseUp 

1383 global emG_msgNumber -- number of the current message 
1 u84 

1385 tell window "childwindow" to emc_getComponent!nf o { ) 



Should add a confirmation dialog with the user 



1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

141 1 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 
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set clnfo = the result 

set cType = getComponentProp (clnfo, #ComponentType ) 



if cType = #mailbox then 

need to determine which message (s) are currently 

— selected and instruct the mailbox to update its 

— display 

-- temporary implementation of mbx_trashMessages does 

not handle multiple messages as a result the 
-- arguments are ignore. . . 

tell window "childwindow" to mbx_trashMes sages ([] ) 

-- the following lines will be neceessary when 

-- mbx_trashMessages is properly implemented. For 

-- now, the temporary implementation trashes the 

— message itself. 

— set messageNumbers = the result 

-- delete each message in the list of messageNumbers 

else if cType = #msgHandler then 

— rewrite the message into the mailfile 
messageHandler (#trash) 

tell window "childwindow" to msh_clearMessage ( ) 
else alert "ERROR invalid componentype . " 



end 



— script of cast member text 

on mouseUp 

global emG_msgNumber 

global emG_maildata, emG_mode 

-- START A NEW MESSAGE 

set emG_msgNumber = 0 
set emG_mode = #author 

set emG_maildata = createMailData(emG_userName, "text") 
openMsgHandler ( " text " , emG_mailData) 
disableReply ( ) 
end 
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1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 



script of cast member Rebus 

on mouseUp 

global emG_msgNumber 

global emG_maildata, emG_mode 

-- START A NEW MESSAGE 

set emG_msgNumber = 0 
set emG_mode = #author 

set emG_maildata = createMailData (emG_userName, "rebus") 
openMsgHandler ( " rebus " , emG_mai lData ) 
disableReply ( ) 
end 



script of cast member grid 

on mouseUp 

global emG_msgNumber 

global emG_maildata, emG_mode 

— START A NEW MESSAGE 

set emG_msgNumber = 0 
set emG_mode = #author ■ 

set emG_maildata = createMailData (emG_userName, "grid") 
openMsgHandler ( "grid" , emG_mailData) 
disableReply ( ) 
end 



script of cast member puzzle 

on mouseUp 

global emG_msgNumber 

global emG_maildata, emG_mode 

-- START A NEW MESSAGE 

set emG_msgNumber = 0 
set emG_mode = tauthor 

set emG_maildata = createMailData (emG_userName, "puzzle" 
openMsgHandler ( "puzzle" , emG_mailData) 
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1494 disableReplyO 
1495 

1496 end 

1497 

1498 

1499 --- script of cast member connect 
1 500 

1501 on mouseUp 

1502 global emG_msgNumber 

1503 global emG_maildata, emG_mode 
1504 

1505 — START A NEW MESSAGE 

1506 

1507 set emG_ms gNumbe r = 0 

1508 set emG_mode = #author 

1509 set emG_maildata = createMailData (emG_userName, "connect") 
1510 

1511 openMsgHandler ( "connect" , emG_mailData) 

1512 

1513 disableReply ( ) 

1514 

1515 end 
1516 

1517 



1518 on getComponentProp infoList, prop 
1519 

1520 need to add error checking code 

1 521 

1522 case prop of 

#componentName: return (getAt ( infolist , 1)) 

icoc #componentID: return (getAt ( infolist , 2)) 

]coa #componentType : return (getAt (infolist , 3)) 

1526 #componentMIMEtype: return (getAt (infolist , 4)) 
152 7 

1528 otherwise: alert "ERROR no component property. 

1529 end case 
1530 

1531 end getComponentProp 
1532 



- script of cast member savebox 



1533 
1534 
1535 on mouseUp 
1536 

1537 openMbx ( " savebox " ) 

1538 

1539 end 

1540 

1541 

1542 script of cast member inbox 

1 543 

1544 on mouseUp 
1545 

1546 openMbx ( " inbox " ) 
1547 



-- returns a string of all" users data from the users file. 
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1548 end 
1549 
1550 
1551 

1552 — script of cast member outbox 

1553 

1554 on mouseup 
1555 

1556 openMbx ( " outbox " ) 
1557 

1558 end 

1559 

1560 

1561 Users File functions 

1562 
1563 
1564 

I iff THIS FUNCTI0N NEEDS TO CHECK THAT DATA IS VALID 

1 566 

1567 on readUsersFile 
1568 

ifvn ~~ Set Up where to find the users file 

1570 put the pathName & "users" into whatFile 
1571 

1572 Start up Fileio Xtra 

1573 set instanceOfXtra = new(xtra "fileio") 
1 574 

ic^f " Set UP Fileio to read from users file 

1576 openFile( instanceOfXtra, whatFile, 1) 

1577 
1578 

nfl^ ~~ If file users doesn't exist, create it 

1580 

1581 if status (instanceOfXtra) <> 0 then 

ifoo createFile( instanceOfXtra, whatFile) 

1583 openFile (instanceOfXtra, whatFile, 1) 

1584 end if 
1585 
1586 

icqq Read what ' s currently in the file 

1589 whatText = readFile ( instanceOfXtra) 

1590 

1CQO if no users are defined, assume administrator as default user 

]cqo ~~ Adrninistra tor info is not written into the user's file until at 

1594 " least one user is defined. This occurs in AddUsers functions. 

1595 if whatText = " " then 

i^Q7 "" f ° r n ° W/ assume admin has mail file in each 

i^Qft location where kidcode is installed 

Icno « PUt " administra tor,kidcode,0, " & the pathName & "administrator" & 

1599 RETURN into whatText 

1600 end if 
1601 
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1602 Close Fileio Xtra 

1603 closeFile(instanceOfXtra) 

1604 set instanceOfXtra = 0 
1605 

1606 return (whatText) — string read from users file 
1607 

1608 end readUsersFile 

1609 

1610 

1611 

1612 more users file scripts 
1613 

1614 on writeUsersFile 

1615 global emG_registeredUsers, emG_passwordList , emG__userGroupList , 

1616 emG_mailFileList 
1617 

1618 — Set up where to find the users file 

1619 put the pathName & "users" into whatFile 
1620 

1621 — Start up Fileio Xtra 

1622 set instanceOfXtra = new(xtra "fileio") 
1623 

1624 — Set up Fileio to read and write from/to users file 

1625 openFile( instanceOfXtra, whatFile, 0) 
1626 

]foI " If file users doesn't exist, create it and set it up for 

1628 read/write 

1629 

1630 if status (instanceOfXtra) <> 0 then 

1631 createFile( instanceOfXtra, whatFile) 

1632 openFile( instanceOfXtra, whatFile, 0) 
1 633 end if 

1634 

1635 Put the cursor at the begining of the users file 

1 636 setPosition( instanceOfXtra, 0) 

1637 

1638 put together string of usersData 

1639 set whatText = " " 

1640 repeat with uname in emG_registeredUsers 
1641 

Iraq Set PW = getPr °P (emG -P asswordList ' uname) 

I aaa Set ugroup = SetProp(emG_userGroupList, uname) 

ifiA Set mfile = g e tProp(emG_mailFileList, uname) 

set wh ^tText = whatText & uname & "," & pw & "," & ugroup & " - & 

1646 mfile & RETURN 
1647 

1648 end repeat 
1649 

1650 — Overwrite users file with updated list 

1651 writeString (instanceOfXtra, whatText) 
1652 

1653 Close Fileio Xtra 
1654 

1 655 closeFile (instanceOfXtra) 



1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 
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1699 

1700 
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set instanceOfXtra = 0 
return (1) 

end writeUsersFile 



these next functions are created to do file checking 
— however they appear to suffer from severe crash problems 
--- these problems will also effect mail file creation if 

path names are invalid. . .we need to fix this 

on pathp pathname 



set instanceOfXtra = new(xtra "fileio") 
openFile( instanceOfXtra, pathname, 1) 
set theval = status (instanceofxtra) 

case theval of 
0 : 

closeFile( instanceOfXtra) 
set instanceOfXtra = 0 
return (1) 



-36: -- I/O Error. . .likely to cause system crash 

alert "System has become unstable. " & RETURN & "Please save vour 
work . " ■* 

— next call to fileio xtra may crash system 
set instanceOfXtra =0 
return (0) 



otherwise : 

alert " " & error ( instanceOfXtra, theval) 
closeFile( instanceOfXtra) 
set instanceOfXtra = 0 
return (0) 



end case 



end pathExists 



on foldertest 

getNthFileNamelnFolder ( "C : \windows " , 1 ) 
end foldertest 



